<script>on mouseUpglobal gUserName,gUserLocation,gMarket,gCDVolume6,gFeedFlagspinCursorput "Use,Hours,Percentage1,Percentage2,Percentage3,Percentage4,Comments,"&¬"Office,Name,AppleLink,Phone" into fldNamesput "1 a,2 a,3 a,4 a,5 a,1 b,2 b,3 b,4 b,5 b,1 C,2 C,3 c,4 c,5 c,1 D,2 D,3 D,4 D,5 D,"&¬"1 E,2 E,3 E,4 E,5 E,1 F,2 F,3 F,4 F,5 F,1 G,2 G,3 G,4 G,5 G,1 H,2 H,3 H,4 H,5 H,"&¬"1 I,2 I,3 I,4 I,5 I,1 J,2 J,3 J,4 J,5 J" into btnNames--•• Verify that at least something is filled input true into isEmptyrepeat with z = 1 to number of items of fldNamesif cd fld (item z of fldNames) is not "" thenput false into isEmptyexit repeatend ifend repeatrepeat with z = 1 to number of items of btnNamesif hilite of btn (item z of btnNames) thenput false into isEmptyexit repeatend ifend repeatif isEmpty thenbeepanswer "There does not appear to be any feedback information filled in. "&¬"Please fill out this form completely as possible before sending it. " & return &¬"Your comments are valuable to us." with "Cancel"exit mouseUpend ifput the date & return & gUserName & return & gUserLocation & return & gMarket& "≈" into theDatarepeat with z = 1 to number of items of fldNamesput cd fld (item z of fldNames) &"∂" after theDataend repeatput "≈" into last char of theDatarepeat with z = 1 to number of items of btnNamesput hilite of btn (item z of btnNames) & return after theDataend repeatput "∂" into last char of theDataput "" into SCSIdatarepeat with z = 0 to 6spinCursorput SCSIInfo(z,"noDialog:errGlobal") & return after SCSIdataend repeatspinCursorput SysEnvironment("noDialog:errGlobal") into sysEnviron1spinCursorput TotalRam() into theRamspinCursorput macType() into sysEnviron2spinCursorswitchXRooput the result into mInfoput SCSIdata & "≈" & theRam & "≈" & sysEnviron1 & "≈" & sysEnviron2 &¬"≈" & mInfo & "≈" & gCDVolume6 after theDataput prefPath() & "ARPL Feedback"&& the seconds into theFilespinCursoropen file theFilewrite theData to file theFileclose file theFilespinCursorput gCDVolume6 into tempdelete last char of tempSendToAppleLink6 "RefPres.CD","",temp&" Feedback",("Here is my feedback." & return &¬return & "Comments:" & return & cd fld "Comments"),theFileget the resultspinCursorif it is not "" thenbeepanswer "Unable to place feedback into the OutBasket!"& return & itexit to HyperCardelseput false into gFeedFlaganswer "Your feedback was placed in the AppleLink outbasket. Please send it "&¬"the next time you are on AppleLink."end ifend mouseUp</script>
<script>on closeFieldglobal gFeedFlagif me is not a number thenbeepanswer "Please use a number in this field."put "" into meselect text of meexit to HyperCardelse if me is not "" thenput true into gFeedFlagend ifend closeFieldon exitFieldcloseFieldend exitField</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>520</left>
<top>122</top>
<right>554</right>
<bottom>136</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Hours</name>
<script>on closeFieldglobal gFeedFlagif me is not a number thenbeepanswer "Please use a number in this field."put "" into meselect text of meexit to HyperCardelse if me is not "" thenput true into gFeedFlagend ifend closeFieldon exitFieldcloseFieldend exitField</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>335</left>
<top>146</top>
<right>369</right>
<bottom>160</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Percentage1</name>
<script>on closeFieldglobal gFeedFlagif me is not a number thenbeepanswer "Please use a number in this field."put "" into meselect text of meexit to HyperCardelse if me > 100 thenbeepanswer "Please enter a number from 0 to 100."select text of meexit to HyperCardelseif me = "" then put 0 into meput abs of (me - 100) into cd fld "percentage2"put true into gFeedFlagend ifend closeFieldon exitFieldcloseFieldend exitField</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>431</left>
<top>146</top>
<right>465</right>
<bottom>160</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Percentage2</name>
<script>on closeFieldglobal gFeedFlagif me is not a number thenbeepanswer "Please use a number in this field."put "" into meselect text of meexit to HyperCardelse if me > 100 thenbeepanswer "Please enter a number from 0 to 100."select text of meexit to HyperCardelseif me = "" then put 0 into meput abs of (me - 100) into cd fld "percentage1"put true into gFeedFlagend ifend closeFieldon exitFieldcloseFieldend exitField</script>
</part>
<part>
<id>54</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>323</left>
<top>182</top>
<right>357</right>
<bottom>196</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Percentage3</name>
<script>on closeFieldglobal gFeedFlagif me is not a number thenbeepanswer "Please use a number in this field."put "" into meselect text of meexit to HyperCardelse if me > 100 thenbeepanswer "Please enter a number from 0 to 100."select text of meexit to HyperCardelseif me = "" then put 0 into meput abs of (me - 100) into cd fld "percentage4"put true into gFeedFlagend ifend closeFieldon exitFieldcloseFieldend exitField</script>
</part>
<part>
<id>55</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>471</left>
<top>182</top>
<right>505</right>
<bottom>196</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Percentage4</name>
<script>on closeFieldglobal gFeedFlagif me is not a number thenbeepanswer "Please use a number in this field."put "" into meselect text of meexit to HyperCardelse if me > 100 thenbeepanswer "Please enter a number from 0 to 100."select text of meexit to HyperCardelseif me = "" then put 0 into meput abs of (me - 100) into cd fld "percentage3"put true into gFeedFlagend ifend closeFieldon exitFieldcloseFieldend exitField</script>
</part>
<part>
<id>87</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>580</left>
<top>338</top>
<right>609</right>
<bottom>352</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Office</name>
<script>on closeFieldglobal gFeedFlagif me is not a number thenbeepanswer "Please use a number in this field."put "" into meselect text of meexit to HyperCardelseput true into gFeedFlagend ifend closeFieldon exitFieldcloseFieldend exitField</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>256</left>
<top>364</top>
<right>606</right>
<bottom>431</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Comments</name>
<script>on openFieldset the textArrows to trueend openField</script>
<text>Please take a moment to answer a few questions. Your feedback is important to ARPL’s on-going development. When finished, click on the “Send” button to automatically place your feedback into your AppleLink outbasket. Use AppleLink to send the item to us at your earliest convenience.• How many times per month do you use ARPL?• How many hours per month do you save by using ARPL?• Estimate the percentage of time you use the: ARPL Interface % vs. Finder %• Do you use ARPL to create your own presentations? If so, what percentage of the time do you use the: Slide Sorter % vs. Persuasion files %• Using the 1 to 5 scale to the right, Not how important are: Critical Important - PowerBook Formatted Presentations.... - Data Sheets......................................... - ARPL Info Center Briefs...................... - Software Applications......................... - “Search a Topic” in the Info Center..... - QuickTime Guide.................................. - Sales Call Profile................................. - Sales Tool Index.................................. - Slide Sorter........................................ - Presentation Maker.............................• How many hours a week do you spend in your Apple office (average)? • Any additional comments?Name:AppleLink: Phone:</text>
</content>
<name>FeedBack</name>
<script>on arrowKeysend the params to hyperCardend arrowKeyon updateScaleBtnglobal gFeedFlag-- if style of me = "transparent" then-- set style of me to "rectangle"-- else set style of me to "transparent"put short name of the target into tNput last char of tN into theColrepeat with z = 1 to 5set hilite of btn (z && theCol) to (z && theCol) = tNend repeatput true into gFeedFlagend updateScaleBtnon closeFieldglobal gFeedFlagput true into gFeedFlagend closeFieldon checkFeedbackglobal gFeedFlagif gFeedFlag is true thenanswer "You did not submit your feedback. Leaving this screen prior to sending will "&¬"delete any information entered. Would you like to send it now?" with "Cancel" or "Leave"¬or "Send First"if it = "Cancel" then exit to HyperCardelse if it = "Send First" thensend mouseUp to btn "Send"end ifend ifput false into gFeedFlagend checkFeedbackon openCardglobal gFeedFlag,gCDVolume6put false into gFeedFlagupdateCdPICTset visible of btn "Office Hider" to gCDVolume6 contains "Partner"set visible of cd fld "Office" to gCDVolume6 contains "Internal"set the usermodify to truerepeat until not the lockscreenunlock screenend repeatselect text of cd fld "Use"pass openCardend openCardon updateCdPICTdrawColor "Feedback"drawColor "Version White",rect of bg btn "Version"end updateCdPICT</script>
</card>
card_9649.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style2">pple Reference & Presentations Library CDTrademarks and Copyright Information</span><span class="style1">® 1988, 1989, 1990, 1991, 1992, 1993, 1994 Apple Computer, Inc. This CD has been produced in two editions: a) Internal Use and, b) Apple Partner Use. The Internal Use Edition contains Apple confidential information and was developed by Apple Computer for internal use by Apple field representatives only. The Apple Partner Edition was developed by Apple Computer for use by authorized Apple VARs, resellers, sales agents, developers, and consultants. All rights reserved. Every effort has been made to ensure the accuracy of the information in this book. However, Apple assumes no responsibility for the accuracy of the information. Product information is subject to change without notice. Mention of third party products is for informational use only and constitutes neither an endorsement nor a recommendation. Apple Computer, Inc. assumes no responsibility with regard to the selection, performance, or use of these products. All understandings, agreements, or warranties, if any, take place directly between the vendors and the prospective users. Apple, the Apple logo, AppleShare, AppleTalk, Apple IIGS, A/UX, EtherTalk, ImageWriter, LaserWriter, LocalTalk, Macintosh, MacOSI, MacSNMP, MacTCP, MacTerminal, ProDOS, StyleWriter, TokenTalk, and The Power to be Your Best are trademarks of Apple Computer, Inc., registered in the U.S.A. and other countries. AppleCD, AppleDesign, Apple Desktop Bus, Apple SuperDrive, At Ease, AudioVision, ColorSync, Finder, FinePrint, Foreign File Access, GeoPort, GrayShare, HyperScan, KanjiTalk, Macintosh Centris, Macintosh Duo, Macintosh Quadra, Macintosh PC Exchange, MacX, MacX25, MacX.400, MoviePlayer, Newton, OneScanner, PhotoGrade, PlainTalk, PowerBook, PowerBook Duo, PowerCD, PowerLatch, QuickClips, QuickDraw, QuickTime, SNA•ps, System 7, Teach Text, TrueType, and Zeal are trademarks of Apple Computer, Inc. Classic is a registered trademark licensed to Apple Computer, Inc.AppleLink Information Policy and Disclaimer: Apple Computer, Inc. disclaims all responsibility for messages sent through or posted onto the AppleLink system by other than authorized Apple personnel. The statements, views, and opinions contained in such messages are strictly those of the author and are not endorsed by, nor do they necessarily reflect the opinion or view of Apple Computer, Inc.This product uses certain copyrighted resources from WindowScript™ which are included under license from Heizer Software. The WindowScript resources may not be removed from this product for any reason and may not be modified. Heizer Software makes no warranty of any kind to users of this product regarding WindowScript. WindowScript Copyright 1990-92 Leonard Buck. All Rights Reserved. WindowScript is a trademark of Heizer Software.Action! and Director are trademarks of Macromedia. Illustrator and Photoshop are registered trademarks, and Adobe, Dimensions, Premiere, DateBook, TouchBASE and Postscript are trademarks of Adobe Systems, Inc. Aldus, Freehand, PageMaker, and Persuasion are registered trademarks, and IntelliDraw and Fetch are trademarks of Aldus Corporation. Aspects is a trademark of Group Technologies, Inc. Brainchild Shortlist is a trademark of Brainchild Corporation. C•A•T IV is a trademark of Chang Laboratories, Inc. Central Point and MacTools are registered trademarks, and Safe & Sound is a trademark of Central Point Software. Cinemation is a registered trademark of Vividus Corporation. Claris, Resolve, ClarisWorks, FileMaker, HyperCard, MacDraw, MacProject, and MacWrite are trademarks of Claris Corporation. Magnet is a registered trademark, and Common Ground is a trademark of No Hands Software. Connectix and Maxima are trademarks of Connectix Corporation. TopDown Flowcharter is a registered trademark, and FlowChart Express and OrgChart Express are trademarks of Kaetron Software Corp. Help! is a registered trademark of Teknosys. In Control 2.0 is a trademark of Attain Corporation. LetterPerfect and WordPerfect are registered trademarks of WordPerfect Corporation. Media Cataloger and Special Delivery are registered trademarks of Interactive Media Corp. StarCommand is a trademark of Farallon Computing, Inc. Microsoft, MS-DOS, Excel, FoxBASE+, and PowerPoint are registered trademarks, and Windows is a trademark of Microsoft Corporation. Morph is a trademark of Gryphon Software Corp. MUSE is a registered trademark of Occam Research Corporation. Now Up-to-Date is a trademark of Now Software, Inc. Ofoto is a registered trademark of Light Source, Inc. On Location is a registered trademark of On Technology. Think For Yourself is a trademark of PEMD Education Group. Virex is a registered trademark of Datawatch Corporation. DEC, DECnet, PATHWORKS, VAX, and VMS are trademarks of Digital Equipment Corporation. IBM and OS/2 are registered trademarks and PowerPC is a trademark of International Business Machines Corporation. NuBus is a trademark of Texas Instruments.Trinitron is a registered trademark of Sony Corporation. UNIX is a registered trademark of UNIX Systems Laboratories, Inc.</span></text>
<script>on mouseUpglobal gAttacheList,gPresFrames,gCurPresFile,gCopyScript,gMenuSelection6global gCurPresList,gPresChanges,gCurMovie1,gCurPresMovies,gPresListglobal gTemp1,gTemp2spinCursorput "" into gTemp1put "" into gTemp2put gAttacheList = "" into disableBtnMediorDB1 "Setup",presMakerDataPath() & "Presentations Titles db1"if the result is not "" then fail the resultMediorDB1 "Presentations","Presentations","All","gTemp1","gTemp2"if the result is not "" then fail the resultput gTemp1 into gPresListput gTemp2 into tempRecsput "" into gTemp1put "" into gTemp2get windowScript("Add Presentation",gPresList,disableBtn,true)put line 1 of it into theBtnput line 2 of it into thePresif theBtn = "Cancel" or thePres = "" then exit mouseUplock screenspinCursorput line 3 of it into addAllput lineOffset(thePres,gPresList) into theLineput line theLine of tempRecs into theRecordNumget MediorDB2("Setup",presMakerDataPath() & "Presentations Data db2")if it is not "" then fail it-- get MediorDB2("ReadData","Presentations",theRecordNum,"Title")-- if checkError(it) then fail it-- put it into gCurPresNameget MediorDB2("ReadData","Presentations",theRecordNum,"MovieData")if checkError(it) then fail itput it into gCurPresMoviesget MediorDB2("ReadData","Presentations",theRecordNum,"PresFile")if checkError(it) then fail itput it into tempget MediorDB2("ReadData","Presentations",theRecordNum,"FolderName")if checkError(it) then fail itput it into gCopyScriptput theRecordNum into item 1 of line (number of cd "Presentations") of gMenuSelection6if last char of temp = "." then delete last char of tempput temp into gCurPresFileput presMakerDataPath() & "MooV:"& temp &".M" into theMoovput line 3 of MediorMovieInfo(theMoov) into gPresFrames-- repeat until number of items of tempFrames = 4-- put "0," before tempFrames-- end repeat-- put item 2 of tempFrames *60 + item 3 of tempFrames into gPresFramesput presMakerDataPath() & "Slides:"& temp &".P:"& temp into thePICTspinCursorupdateTitleif addAll thenrepeat with z = 1 to gPresFramesif z mod 6 = 0 then spinCursorput z into theFramerepeat until length of theFrame ‚â• 3put 0 before theFrameend repeataddSlide thePICT,theFrameend repeatput gCurPresList into cd fld "Slides"put true into gPresChangesend ifdrawOtherBtnsshowPresPreview 1end mouseUp--on mouseUpglobal gAttacheList,gPresFrames,gCurPresFile,gCopyScriptglobal gCurPresList,gPresChanges,gCurMovie1,gCurPresMoviesglobal gTemp1,gTemp2spinCursorput "" into gTemp1put "" into gTemp2put gAttacheList = "" into disableBtnMediorDB1 "Setup",presMakerDataPath() & "Presentations Titles db1"if the result is not "" then fail the resultMediorDB1 "Presentations","Presentations","All","gTemp1","gTemp2"if the result is not "" then fail the resultput gTemp1 into tempListput gTemp2 into tempRecsput "" into gTemp1put "" into gTemp2get windowScript("Add Presentation",tempList,disableBtn,true)put line 1 of it into theBtnput line 2 of it into thePresif theBtn = "Cancel" or thePres = "" then exit mouseUplock screenspinCursorput line 3 of it into addAllput lineOffset(thePres,tempList) into theLineput line theLine of tempRecs into theRecordNumget MediorDB2("Setup",presMakerDataPath() & "Presentations Data db2")if it is not "" then fail it-- get MediorDB2("ReadData","Presentations",theRecordNum,"Title")-- if checkError(it) then fail it-- put it into gCurPresNameget MediorDB2("ReadData","Presentations",theRecordNum,"MovieData")if checkError(it) then fail itput it into gCurPresMoviesget MediorDB2("ReadData","Presentations",theRecordNum,"PresFile")if checkError(it) then fail itput it into tempget MediorDB2("ReadData","Presentations",theRecordNum,"FolderName")if checkError(it) then fail itput it into gCopyScriptif last char of temp = "." then delete last char of tempput temp into gCurPresFileput presMakerDataPath() & "MooV:"& temp &".M" into theMoovput line 3 of MediorMovieInfo(theMoov) into gPresFrames-- repeat until number of items of tempFrames = 4-- put "0," before tempFrames-- end repeat-- put item 2 of tempFrames *60 + item 3 of tempFrames into gPresFramesput presMakerDataPath() & "Slides:"& temp &".P:"& temp into thePICTspinCursorupdateTitleif addAll thenrepeat with z = 1 to gPresFramesif z mod 6 = 0 then spinCursorput z into theFramerepeat until length of theFrame ‚â• 3put 0 before theFrameend repeataddSlide thePICT,theFrameend repeatput gCurPresList into cd fld "Slides"put true into gPresChangesend ifdrawOtherBtnsshowPresPreview 1end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>357</left>
<top>358</top>
<right>478</right>
<bottom>383</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete Slide</name>
<script>on mouseUpglobal gCurPresList,gCurPresPaths,gCurPresRecs,gPresChangesget the selectedLineif it = "" or "Card field 1" is not in it thenbeepelseput word 2 of it into theLineanswer "Delete the slide “"& line theLine of gCurPresList & "” ?" with "Delete" or "Cancel"if it = "Delete" thenlock screenspinCursordelete line theLine of gCurPresListdelete line theLine of gCurPresPathsdelete line theLine of gCurPresRecsput gCurPresList into cd fld "Slides"put true into gPresChangesdrawOtherBtns trueend ifend ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>359</left>
<top>159</top>
<right>618</right>
<bottom>347</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Slides</name>
<script>on mouseUpglobal gAttacheList,gPresFrames,gCurPresFile,gCopyScriptglobal gCurPresList,gPresChanges,gCurMovie1,gCurPresMoviesglobal gCurPresPaths,gCurPresRecs,gMenuSelection6put word 2 of the clickLine into theLineif line theLine of me = "" then exit mouseUpspinCursorselect the clickLinewait 10select ""spinCursorput line theLine of me into theFramedelete last char of theFramedelete char 1 to offset("#",theFrame) of theFrameput line theLine of gCurPresRecs into theRecordNumget MediorDB2("Setup",presMakerDataPath() & "Presentations Data db2")if it is not "" then fail itget MediorDB2("ReadData","Presentations",theRecordNum,"MovieData")if checkError(it) then fail itput it into gCurPresMoviesget MediorDB2("ReadData","Presentations",theRecordNum,"PresFile")if checkError(it) then fail itput it into tempget MediorDB2("ReadData","Presentations",theRecordNum,"FolderName")if checkError(it) then fail itput it into gCopyScriptif last char of temp = "." then delete last char of tempput temp into gCurPresFileput presMakerDataPath() & "MooV:"& temp &".M" into theMoovput line 3 of MediorMovieInfo(theMoov) into gPresFrames-- repeat until number of items of tempFrames = 4-- put "0," before tempFrames-- end repeat-- put item 2 of tempFrames *60 + item 3 of tempFrames into gPresFramesput presMakerDataPath() & "Slides:"& temp &".P:"& temp into thePICTput theRecordNum into item 1 of line (number of cd "Presentations") of gMenuSelection6updateTitlespinCursorshowPresPreview theFramerepeat until not the lockscreenunlock screenend repeatselect the clickLineend mouseUpon mouseUpglobal gPresList,gPresData,gAttacheList,gAttacheData,gPresFrames,gCurPresFileglobal gCurPresList,gCurPresPaths,gMenuSelection6,gCurPresMovies,gCopyScriptput word 2 of the clickLine into theLineif line theLine of me = "" then exit mouseUpspinCursorselect the clickLinewait 10select ""spinCursorput line theLine of gCurPresPaths into theFileif "∂" is in theFile thendelete char offset("∂",theFile) to length of theFile of theFileend ifput line theLine of me into theFramedelete last char of theFramedelete char 1 to offset("#",theFrame) of theFrameset the itemDelimiter to ":"delete last item of theFileput last item of theFile into theFileset the itemDelimiter to ","delete last char of theFiledelete last char of theFileput theFile into gCurPresFileif last char of theFile = "." then delete last char of theFile-- put presMakerDataPath() & "MooV:"& theFile &".M" into theMoovput number of lines of char 1 to offset("≈"& theFile & "≈",gPresData) of gPresData into theLineput line theLine of gPresData into theDataset the itemDelimiter to "≈"delete item 1 of theDataput last item of theData into gCurPresMoviesdelete last item of theDataput last item of theData into gCurPresFiledelete last item of theDataput last item of theData into gCopyScriptdelete last item of theDataput gCurPresFile into tempset the itemDelimiter to ","if last char of temp = "." then delete last char of tempput presMakerDataPath() & "MooV:"& temp &".M" into theMoovput line 3 of MediorMovieInfo(theMoov) into gPresFrames-- repeat until number of items of tempFrames = 4-- put "0," before tempFrames-- end repeat-- put item 2 of tempFrames * 60 + item 3 of tempFrames into gPresFramesupdateTitlespinCursorshowPresPreview theFramerepeat until not the lockscreenunlock screenend repeatselect the clickLineend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>501</left>
<top>358</top>
<right>622</right>
<bottom>383</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clear</name>
<script>on mouseUpglobal gCurPresList,gCurPresPaths,gCurSlideFile,gPresChanges,gCurPresRecsanswer "Clear current Slide list?" with "Clear" or "Cancel"if it = "Cancel" then exit mouseUplock screenspinCursorput "" into gCurSlideFileput "" into gCurPresListput "" into gCurPresPathsput "" into gCurPresRecsput false into gPresChangesput "" into cd fld "Slides"DrawOtherBtns trueend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>360</left>
<top>119</top>
<right>618</right>
<bottom>149</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>22</textHeight>
<name>Presentation</name>
<script>on mouseUpsend mouseUp to btn 2end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>357</left>
<top>394</top>
<right>478</right>
<bottom>419</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save</name>
<script>on mouseUpsaveend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>501</left>
<top>394</top>
<right>622</right>
<bottom>419</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Slide Sorter</name>
<script>on MouseUpglobal gCurSlideFile,gPresChanges,gCDVolume6,gCurPresListspinCursorif gCurSlideFile = "" and gCurPresList = "" thenanswer file "Open which edit list?" of type "TEXT" or "SLID"if it = "" then exit mouseupput item 1 of getfInfo(it) into theTypego this cdspinCursorif theType = "TEXT" thenput it into tempopen file tempread from file temp for 50close file tempif line 1 of it is not "SlideShowList" thenbeepanswer "The file you chose is not an ARPL edit list!" with "Cancel"exit mouseUpend ifend ifput it into gCurSlideFileelse if gPresChanges = true thensaveif the result = "Cancel" then exit mouseUpend ifif "Slide Sorter" is in menu "Application" thenanswer "The Slide Sorter program is already open."& return &¬"You may:"& return & return &¬"• Switch to the Slide Sorter application and "&¬"open your slide list from the File menu"& return& return &"or" & return & return &¬"• Switch to the Slide Sorter, Quit and try again"¬with "Cancel" or "Slide Sorter"if it = "Slide Sorter" thenshow btn "Idler"domenu "Slide Sorter"end ifexit to HyperCardend ifshow btn "Idler"open gCurSlideFile with gCDVolume6 &"Getting Started:Presentation Maker:Slide Sorter"get the resultif it is not "" thenif it is "Cancel" thenanswer "The Slide Sorter file could not be found. "&¬"Please create a new file or try again once you have located it." with "Cancel" or¬"Create New"if it = "Create New" thensavesend mouseUP to btn "Slide Sorter"end ifelse answer itend ifend MouseUp</script>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gPresFramesif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownput line (number of this cd) of gMenuSelection6 into theFramesubtract 1 from theFrameif theFrame < 1 then put gPresFrames into theFrameshowPresPreview theFrameend mouseStillDown</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>297</left>
<top>354</top>
<right>338</right>
<bottom>378</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gPresFramesif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownput line (number of this cd) of gMenuSelection6 into theFrameadd 1 to theFrameif theFrame > gPresFrames then put 1 into theFrameshowPresPreview theFrameend mouseStillDown</script>
<script>on addSlide thePict,theFrameglobal gPresList,gCurPresFile,gCopyScript,gCurPresMovies,gCurPresRecsglobal gCurPresList,gCurPresPaths,gMenuSelection6,gPresChanges,gCurPresMooVPathif theFrame = "" thenput (line (number of this cd) of gMenuSelection6) into theFrameif theFrame < 1 then put 1 into theFramerepeat until length of theFrame ≥ 3put 0 before theFrameend repeatend ifif last char of thePICT = "." then delete last char of thePICTif "MooV"&value of theFrame&"," is in gCurPresMovies thenget lineItemOffset("MooV"&value of theFrame,gCurPresMovies)put line it of gCurPresMovies into thisMoviedelete item 1 of thisMovieput gCopyScript into thePathdo "get "& quote & thePath & quoteput it & thisMovie into gCurPresMooVPathelseput "" into gCurPresMooVPathend ifif gCurPresMooVPath is "" thenput thePICT & "." & theFrame & return after gCurPresPathselseput thePICT & "." & theFrame &"∂"&gCurPresMooVPath& return after gCurPresPathsend ifput gCurPresFile into tempif last char of temp = "." then delete last char of tempget length of tempif gCurPresMooVPath is "" thenput temp & " (#" & value of theFrame &")" &return after gCurPresListelseput temp & "(QT) (#" & value of theFrame &")" &return after gCurPresListend ifput item 1 of line (number of cd "Presentations") of gMenuSelection6 into theRecordNumput theRecordNum & return after gCurPresRecsput gCurPresList into cd fld "Slides"put true into gPresChangesend addSlideon helpTextreturn cd fld "HelpText"end helpTexton saveglobal gCurSlideFile,gCurPresList,gCurPresPaths,gPresChanges,gOnServerif gOnServer = true thenput "Server" into welse put "CD" into wanswer "The Slide Sorter application requires that your Slides be available - either "&¬"on the "&w&" or on your hard disk." & return & "Would you like them to be copied along with "&¬"your edit list or will you have the ARPL "&w&" mounted when you run your slideShow?" with¬"Cancel" or ("Use "&w) or "Copy Slides"if it = "Cancel" then exit to HyperCardelse put it = "Copy Slides" into doCopySlidesif gCurPresPaths contains "∂" and doCopySlides is true thenanswer "One or more of the slides you have chosen contains a QuickTime movie." & return &¬"Would you like them to be copied along with "&¬"your edit list or will you have the ARPL "&w&" mounted when you run your slideShow?" with¬"Cancel" or ("Use "&w) or "Copy Movies"if it = "Cancel" then exit to HyperCardelse put it = "Copy Movies" into doCopyMooVelse put false into doCopyMooVif gCurSlideFile = "" thenput "Untitled Presentation" into tempelse put removePath(gCurSlideFile) into tempask file "Save Presentation as:" with tempif it = "" thenreturn "cancel"exit to HyperCardend ifput it into gCurSlideFilespinCursorput number of lines of gCurPresPaths into theNumrepeat until length of theNum > 3put 0 before theNumend repeatif there is a file gCurSlideFile thenget deleteFile(gCurSlideFile)end ifput removePath(gCurSlideFile) into tempif length of temp > 28 thenput pathway(gCurSlideFile) & char 1 to 28 of temp into gCurSlideFileend ifput ":" after gCurSlideFileif there is not a folder gCurSlideFile thenspinCursornewFolder gCurSlideFileend ifput pathWay(gCurSlideFile) & temp into gCurSlideFileput "" into newSlidePathsput "" into newMooVPathsif doCopySlides thenspinCursorput pathWay(gCurSlideFile) & "Slides:" into theFolderput pathWay(gCurSlideFile) & "Movies:" into movieFolderif there is not a folder theFolder thenspinCursornewFolder theFolderend ifput 0 into reqSpacerepeat with q = 1 to number of lines of gCurPresPathsspinCursorput line q of gCurPresPaths into thisSlideif "∂" is in thisSlide thenget offset("∂",thisSlide)put char it+1 to (length of thisSlide) of thisSlide into thisMovieput char 1 to it-1 of thisSlide into thisSlideelseput "" into thisMovieend ifadd fileSize(thisSlide) to reqSpaceif thisMovie is "" thenput theFolder & removePath(thisSlide) & return after newSlidePathselseput theFolder & removePath(thisSlide) & "∂" & thisMovie & return after newSlidePathsput thisMovie & return after oldMooVPathsput movieFolder & removePath(thisMovie) & return after newMooVPathsend ifend repeatput char 1 to offset(":",thePath) of thePath into theVolumeput diskSpaceAvail(theVolume) into spaceAvailif spaceAvail < reqSpace *1.1 thenanswer "The volume you have chosen does not have enough room to "&¬"copy the slides. Please choose another volume or run your slideShow from the ARPL "&w&"." with¬"Cancel"exit to HyperCardend ifelse put gCurPresPaths into newSlidePathsopen file gCurSlideFilespinCursorwrite "SlideShowList" & return & theNum & return & newSlidePaths to file gCurSlideFilespinCursorput false into gPresChangesclose file gCurSlideFileSetFileInfo gCurSlideFile,"creator","Sort"spinCursorif doCopySlides thenput number of lines of newSlidePaths into numFilesrepeat with q = 1 to numFilesspinCursorprompt 1,"Copying Slide "& q &" of "& numFiles &" …Please wait…"put line q of gCurPresPaths into fromPathput line q of newSlidePaths into toPathif "∂" is in fromPath thendelete char offset("∂",fromPath) to length of fromPath of fromPathdelete char offset("∂",toPath) to length of toPath of toPathend ifif there is not a file toPath thenFileCopy fromPath,toPath,true,"DontResolveAlias","DontShowProgress"put the result into OsErrif OsErr contains "Error" thenprompt 3answer "Sorry, unable to finish copying slides: " & return & OsErrexit to hyperCardend ifend ifend repeatprompt 3end ifif doCopyMooV thenput pathWay(gCurSlideFile) & "Movies:" into theFolderif there is not a folder theFolder thenspinCursornewFolder theFolderend ifput number of lines of oldMooVPaths into numFilesrepeat with q = 1 to numFilesspinCursorprompt 1,"Copying Movie "& q &" of "& numFiles &" …Please wait…"put line q of oldMooVPaths into fromPathput line q of newMooVPaths into toPathif there is not a file toPath thenFileCopy fromPath,toPath,true,"DontResolveAlias","DontShowProgress"put the result into OsErrif OsErr contains "Error" thenprompt 3answer "Sorry, unable to finish copying Movies: " & return & OsErrexit to hyperCardend ifend ifend repeatprompt 3end ifput false into gPresChangesend saveon AddDisplayAttacheglobal gAttacheListwsSet "Add Presentation",7,"Text",gAttacheListwsSet "Add Presentation",10,"Disabled",falseend AddDisplayAttacheon AddDisplayAllglobal gPresListwsSet "Add Presentation",7,"Text",gPresListwsSet "Add Presentation",10,"Disabled",trueend AddDisplayAllon DeleteFromAttacheglobal gAttacheListspinCursorget wsGet("Add Presentation",7,"Selection")delete line it of gAttacheListWritePrefsif gAttacheList = "" thenwsSet "Add Presentation",2,"Disabled",truewsSet "Add Presentation",3,"Hilite",trueAddDisplayAllelseAddDisplayAttacheend ifend DeleteFromAttacheon updateTitleglobal gCurPresFile,gPresFramesput gCurPresFile && "("&gPresFrames&" slides)" into cd fld "Presentation"end updateTitleon openCardglobal gMenuSelection6,gCurPresFile,gPresFrames,gCurPresListupdateCdPICTif gCurPresFile is not "" thenupdateTitlerepeat until not the lockscreenunlock screenend repeatshowPresPreview (line (number of this cd) of gMenuSelection6)end ifput gCurPresList into cd fld "Slides"pass openCardend openCardon updateCdPICTdrawColor "Pres Maker"drawColor "btn.Slide Sorter",rect of btn "Slide Sorter"DrawOtherBtnsend updateCdPICTon DrawOtherBtns updateCdglobal gCurSlideFile,gCurPresList,gCurPresFileif gCurPresList is not "" thendrawColor "BTN.SAVE",rect of btn "Save"show btn "Save"elsehide btn "Save"if updateCd is true thendrawColor "Pres Maker"drawColor "btn.Slide Sorter",rect of btn "Slide Sorter"end ifend ifif gCurPresFile is not "" thendrawColor "SLIDER BAR",rect of btn "Slider Bar"show btn "Add Slide"show btn "Slider Bar"show btn "Next"show btn "Prev"elsehide btn "Add Slide"hide btn "Slider Bar"hide btn "Next"hide btn "Prev"if updateCd is true thendrawColor "Pres Maker"drawColor "btn.Slide Sorter",rect of btn "Slide Sorter"end ifend ifrepeat until not the lockscreenunlock screenend repeatend DrawOtherBtnson showPresPreview theFrameglobal gPresList,gAttacheList,gAttacheData,gCurPresFile,gCurStillMovie,gCopyScriptglobal gCurPresList,gCurPresPaths,gMenuSelection6,gCurPresMovies,gCurPresMooVPath-- lock screenput gCurPresFile into tempif last char of temp = "." then delete last char of tempput presMakerDataPath() & "MooV:"& temp &".M" into theMoovput line 1 of MediorMovieInfo(theMoov) into theRectif theRect = "0,0,255,171" thenput topLeft of btn "MoovLoc2" into theLocelse put topLeft of btn "MoovLoc" into theLocplayStill theMoov,theFrame,"borderless",theLocif there is a window gCurStillMovie thenif "MooV"&theFrame&"," is in gCurPresMovies thenget lineItemOffset("MooV"&value of theFrame,gCurPresMovies)put line it of gCurPresMovies into thisMoviedelete item 1 of thisMovieput gCopyScript into thePathdo "get "& quote & thePath & quoteput it & thisMovie into gCurPresMooVPathset the badge of window gCurStillMovie to trueelseset the badge of window gCurStillMovie to falseput "" into gCurPresMooVPathend ifend ifupdateCount theFrameput theFrame into line (number of this cd) of gMenuSelection6end showPresPreviewon closeCardglobal gCurStillMovieif there is a window gCurStillMovie then close window gCurStillMovieput "" into cd fld "Presentation"put "" into cd fld "Slides"put "" into cd fld "SlideNum"pass closeCardend closeCard</script>
</card>
card_8913.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal gOtherMaterialsRecsput word 2 of the ClickLine into theLineput line theLine of me into theTextif theText = "" then exit mouseUpselect line theLine of mewait 10select ""lock screenspinCursorshowOtherMaterial line theLine of gOtherMaterialsRecsend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>359</left>
<top>217</top>
<right>628</right>
<bottom>426</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Text</name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>65</left>
<top>359</top>
<right>291</right>
<bottom>377</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>SlideNum</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>121</top>
<right>540</right>
<bottom>193</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>PrintedData</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>384</left>
<top>180</top>
<right>584</right>
<bottom>265</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>HelpText</name>
<script></script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>299</left>
<top>355</top>
<right>341</right>
<bottom>380</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gOtherMaterialsRecsif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gOtherMaterialsRecs) into theLineif theLine = number of lines of gOtherMaterialsRecs thenput 1 into theLineelse add 1 to theLineput line theLine of gOtherMaterialsRecs into theRecordNumspinCursorshowOtherMaterial theRecordNumend mouseStillDown</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>354</top>
<right>57</right>
<bottom>379</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gOtherMaterialsRecsif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gOtherMaterialsRecs) into theLineif theLine = 1 thenput number of lines of gOtherMaterialsRecs into theLineelse subtract 1 from theLineput line theLine of gOtherMaterialsRecs into theRecordNumspinCursorshowOtherMaterial theRecordNumend mouseStillDown</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>357</left>
<top>82</top>
<right>631</right>
<bottom>107</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search</name>
<script>on mouseUpglobal gSubjectCats,gMarketCats,gMediaCats,gSearchParams2,gCurMovie1global gSTKeys,gTempspinCursorif gSubjectCats = "" thenput infoCenterDataPath() & "Subject Search Cats" into theFileopen file theFileread from file theFile until eofclose file theFileput it into gSubjectCatsrepeat until last char of gSubjectCats is not return or gSubjectCats = ""delete last char of gSubjectCatsend repeatput infoCenterDataPath() & "Market Search Cats" into theFileopen file theFileread from file theFile until eofclose file theFileput it into gMarketCatsrepeat until last char of gMarketCats is not return or gMarketCats = ""delete last char of gMarketCatsend repeatput infoCenterDataPath() & "Media Search Cats" into theFileopen file theFileread from file theFile until eofclose file theFileput it into gMediaCatsrepeat until last char of gMediaCats is not return or gMediaCats = ""delete last char of gMediaCatsend repeatend ifif gSearchParams2 = "" thenput 1 & return & 1 & return & 1 & return & "All" into gSearchParams2end ifput "" into gSTKeysput "" into gTempput (line (line 3 of gSearchParams2) of gMediaCats) into theMediaput line (line 1 of gSearchParams2) of gSubjectCats into theSubput line (line 2 of gSearchParams2) of gMarketCats into theMarketif last word of theMarket = "Market" then delete last word of theMarketMediorDB1 "Setup",infoCenterDataPath() & "Sales Tools "& theMediaif the result is not "" then fail the resultMediorDB1 theMedia,theSub,theMarket,"gSTKeys","gTemp"if the result is not "" then put " " into gSTKeyselse if gSTKeys = "" then put space into gSTKeysget windowScript("Sales Tools",gSubjectCats,gMarketCats,gMediaCats,¬line (line 1 of gSearchParams2) of gSubjectCats,¬line (line 2 of gSearchParams2) of gMarketCats,¬line (line 3 of gSearchParams2) of gMediaCats,line 4 of gSearchParams2,"0,"&¬length of line 4 of gSearchParams2,gSTKeys)if line 1 of it = "Cancel" or it = "" then exit mouseUpput line 2 of it into chosenSubjectCatput line 3 of it into chosenMarketCatput line 4 of it into chosenMediaCatput line 5 of it into theTextput lineOffset(chosenSubjectCat,gSubjectCats) & return &¬lineOffset(chosenMarketCat,gMarketCats) & return &¬lineOffset(chosenMediaCat,gMediaCats) & return &¬theText into gSearchParams2-- if theText = "" or theText = "All" thenif chosenSubjectCat is not all then put "Subject." before chosenSubjectCatif chosenMarketCat is not all then put "Market." before chosenMarketCatif chosenMediaCat is not all then put "Media." before chosenMediaCatput " AND " & chosenSubjectCat & return & " AND "& chosenMarketCat & return &¬" AND "& chosenMediaCat & return into theSearch-- else-- put " AND " & chosenSubjectCat & return & " AND "& chosenMarketCat & return &¬-- " AND "& chosenMediaCat & return into theSearchif lineOffset(theText,gSTKeys) = 0 thenrepeat with z = 1 to number of words of theTextput " AND "& word z of theText & return after theSearchend repeatelseput " AND "& theText & return after theSearchend if-- end ifdoFind theSearchend mouseUp</script>
<script>on mouseUpput cd fld "Text" into cd fld "PrintedData"print cd fld "PrintedData"end mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>80</left>
<top>434</top>
<right>159</right>
<bottom>465</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quit</name>
<script>on mouseUpLinkToQuitend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>200</left>
<top>435</top>
<right>279</right>
<bottom>466</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUpLinkToHelpend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>80</left>
<top>397</top>
<right>279</right>
<bottom>428</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Main</name>
<script>on mouseUpglobal gOtherMatList,gMenuSelection6if visible of btn "Done" thenput "" into gOtherMatListput "" into line (number of this cd) of gMenuSelection6end ifLinkToMainend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>128</left>
<top>178</top>
<right>251</right>
<bottom>277</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>GuideLoc</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>5</id>
<text>AUSA Sales Tools IndexHere you can navigate through information on recently produced Apple collateral materials. By clicking on the “Search a Topic” button, you can specify searches for a specific topic by Subject, Market, and Media Type. To view an item, click on one of the desired items in the list. You can print the information on any listing simply by clicking the “Print” button.</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>1 of 517</text>
</content>
<name>Other Materials</name>
<script>on keydown theKeyif theKey is not in " ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" then pass keyDownif the selectedChunk contains "Message Box" then pass keyDownupdateScroll theKey,"Other Materials"end keyDownon updateKeysglobal gSTKeys,gTempput "" into gSTKeysput "" into gTempput wsGet("Sales Tools",4,"selectionText") into theMarketput wsGet("Sales Tools",13,"selectionText") into theSubput wsGet("Sales Tools",11,"selectionText") into theMediawsSet "Sales Tools",4,"selectionText",theMarketwsSet "Sales Tools",13,"selectionText",theSubwsSet "Sales Tools",11,"selectionText",theMediaif last word of theMarket = "Market" then delete last word of theMarketMediorDB1 "Setup",infoCenterDataPath() & "Sales Tools "&theMediaif the result is not "" then fail the resultMediorDB1 theMedia,theSub,theMarket,"gSTKeys","gTemp"-- if the result is not "" then fail the resultif the result is not "" then put " " into gSTKeyselse if gSTKeys = "" then put space into gSTKeyswsSet "Sales Tools",15,"Text",gSTKeysend updateKeyson updateTopicput wsGet("Sales Tools",15,"selectionText") into chosenKeywsSet "Sales Tools",8,"Text",chosenKeyend updateTopicfunction removeDupLines theListrepeat with z = number of lines of theList down to 2if line z of theList = line z-1 of theList then delete line z of theListend repeatreturn theListend removeDupLineson doFind toFindglobal gOtherMaterialsList,gOtherMaterialsRecsput the ticks into slock screenset cursor to busyput removeDupLines(toFind) into searchListput infoCenterDataPath()&"Search Data " into thePathput hitsForTerm(searchList,thePath&"Other Materials") into theOtherMatsput TitleListC(theOtherMats,thePath&"Other Materials") into newListif UserName = "Peter Meyer" then put the ticks - s into msgif newList = "" thenbeepanswer "No matches were found." with "Cancel" or "Search Again"if it = "Search Again" thenclick at loc of btn "Search"end ifelseput newList into gOtherMaterialsListput switch(theOtherMats) into gOtherMaterialsRecsput gOtherMaterialsList into cd fld "other Materials"showOtherMaterial line 1 of gOtherMaterialsRecsend ifend doFindon boldText theWords,findAllput cd fld "Text" into theTextif findAll is true thenrepeat with z = 1 to number of items of theWordsspinCursorput item z of theWords into thisWordif thisWord is in theText thenput length of thisWord -1 into tLput LineOffsetList(thisWord,theText) into theListrepeat with q = 1 to number of lines of theListget line q of theListset textStyle of char it to (it + tL) of cd fld "Text" to boldend repeatend ifend repeatelserepeat with z = 1 to number of items of theWordsif z mod 8 = 0 then spinCursorput item z of theWords into thisWordif thisWord is in theText thenget offset(return & thisWord,theText)set textStyle of char it to (it + length of thisWord -1) of cd fld "Text" to boldend ifend repeatend ifend boldTexton updateCdPICTdrawColor "SALES TOOLS INDEX"if visible of btn "Done" then drawColor "btn.Done",rect of btn "Done"drawColor "btn.Print",rect of btn "Print"end updateCdPICTon openCardglobal gMenuSelection6,gOtherMaterialsList,gOtherMaterialsRecsupdateCdPICTif gOtherMaterialsList = "" thenput "" into gOtherMaterialsListput "" into gOtherMaterialsRecsMediorDB1 "Setup",infoCenterDataPath() & "Other Materials Titles db1"if the result is not "" then fail the resultMediorDB1 "Other Materials","Other Materials","All","gOtherMaterialsList","gOtherMaterialsRecs"if the result is not "" then fail the resultend ifput gOtherMaterialsList into cd fld "Other Materials"put line (number of this cd) of gMenuSelection6 into theSettingsput item 1 of theSettings into theRecordNumif theRecordNum = "" or lineOffset(theRecordNum,gOtherMaterialsRecs) = 0 then put line 1 of gOtherMaterialsRecs into theRecordNumshowOtherMaterial theRecordNumpass openCardend openCardon closeCardglobal gCurStillMovie,gOtherMaterialsListif there is a window gCurStillMovie then close window gCurStillMovielock screenspinCursorput "" into cd fld "Other Materials"put "" into cd fld "Text"pass closeCardend closeCardon showOtherMaterial theRecordNumglobal gMenuSelection6,gOtherMaterialsList,gOtherMaterialsRecslock screen-- put "Title" & return & "Frame" & return & "Description" into fieldNamesget MediorDB2("Setup",infoCenterDataPath() & "Other Materials Data db2")if it is not "" then fail itget MediorDB2("ReadData","Other Materials",theRecordNum,"Title")if checkError(it) then fail itput it into theTitleget MediorDB2("ReadData","Other Materials",theRecordNum,"Description")if checkError(it) then fail itput it into theTextget MediorDB2("ReadData","Other Materials",theRecordNum,"Frame")if checkError(it) then fail itput it into theFrameput theText into cd fld "Text"set scroll of cd fld "Text" to 0set textStyle of line 1 of cd fld "Text" to boldboldText "Category:,Market:,Length:,Original Source:,For More:"put lineOffset(theRecordNum,gOtherMaterialsRecs) & " of "&¬number of lines of gOtherMaterialsList into cd fld "SlideNum"repeat until not the lockscreenunlock screenend repeatplayStill infoCenterDataPath()&"Sales Tools.Moov",theFrame,"",topLeft of btn "MoovLoc"put theRecordNum into item 1 of line (number of this cd) of gMenuSelection6end showOtherMaterial</script>
</card>
card_4163.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal gDemosRecsput word 2 of the ClickLine into theLineput line theLine of me into theTextif theText = "" then exit mouseUpselect line theLine of mewait 10select ""lock screenspinCursorshowDemo line theLine of gDemosRecs-- repeat until not the lockscreen-- unlock screen-- end repeat-- select line theLine of meend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>357</left>
<top>432</top>
<right>416</right>
<bottom>463</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Copy</name>
<script>on mouseUpglobal gCopyScript,gTheAppif gTheApp = "Application" or gTheApp = "HyperCard" or gTheApp = "QuickTime" then put "" into gTheAppCopy gCopyScript,gTheAppend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>18</left>
<top>108</top>
<right>338</right>
<bottom>348</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>PICT</name>
<script></script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>85</left>
<top>292</top>
<right>275</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Application</name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>347</top>
<right>428</right>
<bottom>430</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>HelpText</name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>17</left>
<top>313</top>
<right>338</right>
<bottom>328</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Reminder</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>429</left>
<top>432</top>
<right>488</right>
<bottom>463</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Play</name>
<script>on mouseUpglobal gCurMoviePath,gMovieRectpush cdLinkToCard "Theatre"put false into closeFlagput "rect" into wdStyleput false into invisput gCurMoviePath into theMovieif there is a file theMovie thenput MediorMovieInfo(theMovie) into theInfoput line 1 of theInfo into gMovieRectput movieCenterLoc() into theLocend ifrunDirect theMovie,theLoc,closeFlag,wdStyle,invisend mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>374</left>
<top>59</top>
<right>613</right>
<bottom>79</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>PopUp</name>
<script>on MouseDownglobal gDemoKeysput lineOffset(cd fld "PopUp",gDemoKeys) into checkedput top of me + top of cd window + 1 into vput left of me + left of cd window + 1 into hget (PopUpMenu(gDemoKeys,checked,v,h))put line it of gDemoKeys into theDemoCatspinCursorif theDemoCat is not cd fld "PopUp" and theDemoCat is not "" thenupdateField itend ifend MouseDown</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>594</left>
<top>61</top>
<right>611</right>
<bottom>76</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9858</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to cd fld id 10end mouseDown</script>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gDemosRecsif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gDemosRecs) into theLineif theLine = number of lines of gDemosRecs thenput 1 into theLineelse add 1 to theLineput line theLine of gDemosRecs into theRecordNumspinCursorshowDemo theRecordNumend mouseStillDown</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>354</top>
<right>57</right>
<bottom>378</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gDemosRecsif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gDemosRecs) into theLineif theLine = 1 thenput number of lines of gDemosRecs into theLineelse subtract 1 from theLineput line theLine of gDemosRecs into theRecordNumspinCursorshowDemo theRecordNumend mouseStillDown</script>
<text>Click “Copy” to copy the Demo to your hard drive.</text>
</content>
<content>
<layer>card</layer>
<id>13</id>
<text>Click “Play” to view the QuickTime movie.</text>
</content>
<content>
<layer>card</layer>
<id>17</id>
<text>Apple Font Pack Movie</text>
</content>
<name>Demos</name>
<script>on keydown theKeyif theKey is not in " ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" then pass keyDownif the selectedChunk contains "Message Box" then pass keyDownupdateScroll theKey,"Demos"end keyDownon updateCdPICTdrawColor "INFO CENTER/Demos"drawColor "Btn.Done",rect of btn "Done"drawColor "Btn.Copy",rect of btn "Copy"end updateCdPICTon openCardglobal gDemosList,gDemosRecs,gMenuSelection6put gDemosList into cd fld "Demos"put line (number of this cd) of gMenuSelection6 into theSettingsput item 1 of theSettings into theRecordNumif theRecordNum = "" then put line 1 of gDemosRecs into theRecordNumupdateCdPICTshowDemo theRecordNumpass openCardend openCardon closeCardglobal gDemosList,gDemosRecslock screenspinCursorput "" into cd fld "Demos"put "" into cd fld "Data"-- put "" into gDemosList-- put "" into gDemosRecspass closeCardend closeCardon showDemo theRecordNumglobal gDemosList,gDemosRecs,gMenuSelection6,gCopyScript,gTheApp,gCurMoviePath,gOnServer,gCurDemoTitlelock screen-- put "Title" & return & "Description" & return & "Application" & return & "FolderName" &¬-- return & "Movie" into fieldNamesget MediorDB2("Setup",infoCenterDataPath() & "Demos Data db2")if it is not "" then fail itget MediorDB2("ReadData","Demos",theRecordNum,"Title")if checkError(it) then fail itput it into theTitleput theTitle into gCurDemoTitleget MediorDB2("ReadData","Demos",theRecordNum,"FolderName")if checkError(it) then fail itput it into gCopyScriptget MediorDB2("ReadData","Demos",theRecordNum,"Description")if checkError(it) then fail itput it into theDescget MediorDB2("ReadData","Demos",theRecordNum,"Application")if checkError(it) then fail itput it into theAppget MediorDB2("ReadData","Demos",theRecordNum,"Movie")if checkError(it) then fail itput it into gCurMoviePathdrawColor "App."&theApp,rect of btn "PICT"put gCurMoviePath is not "" into isQTif isQT thenif gOnServer is not true thendrawColor "BTN.PLAY",rect of btn "Play"elsedrawColor "BTN.PLAY Hider",rect of btn "Play"end ifdrawColor "BTN.Attache",rect of btn "Attache"elsedrawColor "BTN.PLAY Hider",rect of btn "Play"drawColor "BTN.PLAY Hider",rect of btn "Attache"end ifset visible of cd fld "Reminder2" to isQTset visible of btn "Play" to (isQT and gOnServer is not true)set visible of btn "Attache" to isQTif isQT thenput "QuickTime movie" into theAppTypeif gOnServer is not true thenput theTitle & return & return & theDesc & return &¬return & "Click “Copy” to copy the "& theAppType&" to your hard drive."& return & return&¬"Click “Play” to view the QuickTime movie." into cd fld "Data"elseput theTitle & return & return & theDesc & return &¬return & "Click “Copy” to copy the "& theAppType&" to your hard drive." into cd fld "Data"end ifelseput "demo" into theAppTypeput theTitle & return & return & theDesc & return &¬return & "Click “Copy” to copy the "& theAppType&" to your hard drive."¬into cd fld "Data"end ifput theTitle into cd fld "Title"set scroll of cd fld "Data" to 0set textStyle of line 1 of cd fld "Data" to boldif theApp is not "Application" thenput "Created with : "&theApp into cd fld "Application"put theApp into gTheAppelseput "Application" into gTheAppput theTitle into cd fld "Application"end ifrepeat until not the lockscreenunlock screenend repeatput theRecordNum into item 1 of line (number of this cd) of gMenuSelection6end showDemo</script>
</card>
card_5464.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on MouseUpglobal gDocumentsRecsput word 2 of the clickLine into theLineif line theLine of me = "" then exit MouseUpselectLineCd theLine,number of mewait 10select ""SpinCursorlock screen-- put line theLine of me into theTextshowDocument (line theLine of gDocumentsRecs)end MouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>357</left>
<top>432</top>
<right>416</right>
<bottom>463</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Copy</name>
<script>on mouseUpglobal gCopyScript,gTheAppif gTheApp = "Application" or gTheApp = "HyperCard" then put "" into gTheAppdo gCopyScript & "," & quote &gTheApp & quoteend mouseUp</script>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gDocumentsRecsif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gDocumentsRecs) into theLineif theLine = number of lines of gDocumentsRecs thenput 1 into theLineelse add 1 to theLineput line theLine of gDocumentsRecs into theRecordNumspinCursorshowDocument theRecordNumend mouseStillDown</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>354</top>
<right>57</right>
<bottom>378</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gDocumentsRecsif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gDocumentsRecs) into theLineif theLine = 1 thenput number of lines of gDocumentsRecs into theLineelse subtract 1 from theLineput line theLine of gDocumentsRecs into theRecordNumspinCursorshowDocument theRecordNumend mouseStillDown</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>61</left>
<top>354</top>
<right>294</right>
<bottom>376</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Title</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>6</id>
<text>Created with : Persuasion</text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text>DocumentsARPL contains many documents files. These may be spreadsheets or other types of documentation. From here you can find information about the documents on ARPL and then copy them to your hard drive where they can be viewed more efficiently. Start by selecting a document in the list at the top right. Information about that document will immediately appear in the field below it. You can then copy the document to any desired volume for viewing or customization. If desired you can simultaneously copy the application required to run the document.</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>Click “Copy” to copy the Document to your hard drive.</text>
</content>
<content>
<layer>card</layer>
<id>12</id>
<text>AOCE Tech Document</text>
</content>
<name>Documents</name>
<script>on keydown theKeyif theKey is not in " ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" then pass keyDownif the selectedChunk contains "Message Box" then pass keyDownupdateScroll theKey,"Documents"end keyDownon updateCdPICTdrawColor "Info Center/Documents"drawColor "Btn.Done",rect of btn "Done"drawColor "Btn.Copy",rect of btn "Copy"end updateCdPICTon closeCardglobal gDocumentsList,gDocumentsRecslock screenspinCursorput "" into cd fld "Documents"put "" into cd fld "Data"pass closeCardend closeCardon openCardglobal gDocumentsList,gDocumentsRecs,gMenuSelection6put gDocumentsList into cd fld "Documents"put line (number of this cd) of gMenuSelection6 into theSettingsput item 1 of theSettings into theRecordNumif theRecordNum = "" then put line 1 of gDocumentsRecs into theRecordNumupdateCdPICTshowDocument theRecordNumpass openCardend openCardon showDocument theRecordNumglobal gMenuSelection6,gCopyScript,gTheApplock screen-- put "Title" & return & "Description" & return & "Application" & return & "FolderName"¬-- into fieldNamesget MediorDB2("Setup",infoCenterDataPath() & "Documents Data db2")if it is not "" then fail itget MediorDB2("ReadData","Documents",theRecordNum,"Title")if checkError(it) then fail itput it into theTitleget MediorDB2("ReadData","Documents",theRecordNum,"Application")if checkError(it) then fail itput it into theAppget MediorDB2("ReadData","Documents",theRecordNum,"FolderName")if checkError(it) then fail itput "copy " & quote & it & quote into gCopyScriptget MediorDB2("ReadData","Documents",theRecordNum,"Description")if checkError(it) then fail itput it into theDescput theTitle & return & return & theDesc & return &¬return & "Click “Copy” to copy the Document to your hard drive." into cd fld "Data"set scroll of cd fld "Data" to 0if theApp is not "Application" thenput "Created with : "&theApp into cd fld "Application"put theApp into gTheAppelseput "Application" into gTheAppput theApp into cd fld "Application"end ifput theTitle into cd fld "Title"set textStyle of line 1 of cd fld "Data" to bolddrawColor "App."&theApp,rect of btn "PICT"repeat until not the lockscreenunlock screenend repeatput theRecordNum into item 1 of line (number of this cd) of gMenuSelection6end showDocument</script>
</card>
card_6435.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on MouseUpglobal gPresentationsRecsput word 2 of the clickLine into theLineif line theLine of me = "" then exit MouseUpselectLineCd theLine,number of mewait 10select ""SpinCursorlock screenshowPresentation (line theLine of gPresentationsRecs)end MouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>360</left>
<top>238</top>
<right>618</right>
<bottom>381</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>15</textHeight>
<name>Data</name>
<script>-- on mouseUp-- put word 2 of the ClickLine into theLine-- select line theLine of me-- wait 10-- select ""-- lock screen-- spinCursor-- get me-- go cd "Presentations"-- put it into cd fld "Presentations"-- end mouseUp</script>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gPresFramesif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownput item 2 of line (number of this cd) of gMenuSelection6 into theFramesubtract 1 from theFrameif theFrame < 1 then put gPresFrames into theFrame-- spinCursorshowPresFrame theFrameend mouseStillDown</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>300</left>
<top>354</top>
<right>341</right>
<bottom>378</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown aFglobal gMenuSelection6,gPresFramesif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownput item 2 of line (number of this cd) of gMenuSelection6 into theFrameadd 1 to theFrameif theFrame > gPresFrames then put 1 into theFrame-- spinCursorshowPresFrame theFrameend mouseStillDown</script>
<script>on MouseUpglobal gDataSheetsData,gDataSheetsRecsput word 2 of the clickLine into theLineif line theLine of me = "" then exit MouseUpselectLineCd theLine,number of mewait 10select ""SpinCursorlock screenshowDataSheet (line theLine of gDataSheetsRecs)end MouseUp</script>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gDataSheetsRecsif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gDataSheetsRecs) into theLineif theLine = 1 thenput number of lines of gDataSheetsRecs into theLineelse subtract 1 from theLineput line theLine of gDataSheetsRecs into theRecordNumspinCursorshowDataSheet theRecordNumend mouseStillDown</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>287</left>
<top>353</top>
<right>328</right>
<bottom>377</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown afglobal gMenuSelection6,gDataSheetsRecsif the mouseLoc is not within the rect of me and aF is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gDataSheetsRecs) into theLineif theLine = number of lines of gDataSheetsRecs thenput 1 into theLineelse add 1 to theLineput line theLine of gDataSheetsRecs into theRecordNumspinCursorshowDataSheet theRecordNumend mouseStillDown</script>
<text>Data SheetsHere you can view any of the printable data sheets available on the ARPL CD. Start by selecting a data sheet in the list at the top right. Information about that data sheet will immediately appear in the field below it. A preview of the data sheet will appear in the preview screen on the left. You can then copy the data sheet to any desired volume for customization or printing.</text>
<script>on mouseUpglobal gBriefsRecs,gMenuSelection6put word 2 of the ClickLine into theLineput line theLine of me into theTextif theText = "" then exit mouseUpselect line theLine of mewait 10select ""put line (number of this cd) of gMenuSelection6 into theSettingsput item 2 of theSettings into theViewif theView = "" then put "Description" into theViewlock screenspinCursorShowBrief line theLine of gBriefsRecs,theViewend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>422</left>
<top>422</top>
<right>487</right>
<bottom>463</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpglobal gMenuSelection6,gBriefsRecs,gBriefsListanswer "Print the entire brief or just the current text ("&¬item 2 of line (number of this cd) of gMenuSelection6 & ") ?" with "Cancel" or "Entire" or¬"Current"if it = "Cancel" then exit mouseUpspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gBriefsRecs) into theLineput line theLine of gBriefsList into theBriefput number of words of theBrief into titleWordsspinCursorif it = "Current" thenput "Apple Reference & Presentation Library" & return & the date & return & return into theTextput cd fld "Text" into tempTextif word 1 to titleWords of tempText is not theBrief thenput cd fld "View" & return & return after theTextend ifput tempText after theTextelse if it = "Entire" thenget MediorDB2("ReadData","Briefs",theRecordNum,"viewsWithData")if checkError(it) then fail itput it into viewsWithDataput viewNames() into theViewsrepeat with z = 1 to number of lines of theViewsspinCursorput line z of theViews into thisViewif line z of viewsWithData is false thenget MediorDB2("ReadData","Briefs",theRecordNum,thisView)if checkError(it) then fail itput it into tempTextif word 1 to titleWords of line 1 of tempText is not theBrief thenput thisView & return & tempText & return & return & return after theTextelseput tempText & return & return & return after theTextend ifend ifend repeatend ifspinCursorprint theTextend mouseUp</script>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown arrowFlagglobal gMenuSelection6,gBriefsRecsif the mouseLoc is not within the rect of me and arrowFlag is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gBriefsRecs) into theLineif theLine = number of lines of gBriefsRecs thenput 1 into theLineelse add 1 to theLineput line theLine of gBriefsRecs into theRecordNumspinCursorput line (number of this cd) of gMenuSelection6 into theSettingsput item 2 of theSettings into theViewif theView = "" then put "Description" into theViewshowBrief theRecordNum,theViewend mouseStillDown</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>354</top>
<right>57</right>
<bottom>378</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseDownmouseStillDownwait 15end mouseDownon mouseStillDown arrowFlagglobal gMenuSelection6,gBriefsRecsif the mouseLoc is not within the rect of me and arrowFlag is not true then exit mouseStillDownspinCursorput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gBriefsRecs) into theLineif theLine = 1 thenput number of lines of gBriefsRecs into theLineelse subtract 1 from theLineput line theLine of gBriefsRecs into theRecordNumspinCursorput line (number of this cd) of gMenuSelection6 into theSettingsput item 2 of theSettings into theViewif theView = "" then put "Description" into theViewshowBrief theRecordNum,theViewend mouseStillDown</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>61</left>
<top>354</top>
<right>295</right>
<bottom>376</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Title</name>
<script></script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>422</top>
<right>418</right>
<bottom>463</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Export</name>
<script>on mouseUpglobal gMenuSelection6,gBriefsRecs,gBriefsListanswer "Export the entire brief or just the current text ("&¬item 2 of line (number of this cd) of gMenuSelection6 & ") ?" with "Cancel" or "Entire" or¬"Current"if it = "Cancel" then exit mouseUpgo this cdput it into viewsExportedput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumput lineOffset(theRecordNum,gBriefsRecs) into theLineput line theLine of gBriefsList into theBriefput "Brief - " into theFileif length of theBrief + length of theFile > 30 thenput char 1 to (30 - length of theFile) of theBrief & "…" after theFileelse put theBrief after theFileask file "Save Brief as:" with theFileif it = "" then exit mouseUpgo this cdspinCursorput it into theFileput number of words of theBrief into titleWordsspinCursorif viewsExported = "Current" thenput "Apple Reference & Presentation Library" & return & the date & return & return into theTextput cd fld "Text" into tempTextif word 1 to titleWords of tempText is not theBrief thenput cd fld "View" & return & return after theTextend ifput tempText after theTextelse if viewsExported = "Entire" thenget MediorDB2("ReadData","Briefs",theRecordNum,"viewsWithData")if checkError(it) then fail itput it into viewsWithDataput viewNames() into theViewsrepeat with z = 1 to number of lines of theViewsspinCursorput line z of theViews into thisViewif line z of viewsWithData is false thenget MediorDB2("ReadData","Briefs",theRecordNum,thisView)if checkError(it) then fail itput it into tempTextif word 1 to titleWords of line 1 of tempText is not theBrief thenput thisView & return & tempText & return & return & return after theTextelseput tempText & return & return & return after theTextend ifend ifend repeatend ifspinCursoropen file theFilewrite theText to file theFileclose file theFilerepeat 5wait 10spinCursorend repeatend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>491</left>
<top>422</top>
<right>556</right>
<bottom>463</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Related Materials</name>
<script>on mouseUpglobal gMenuSelection6,gMasterKeywordif gMasterKeyword is not "" thenput "" into line (number of cd "Briefing Center") of gMenuSelection6LinkToCard "Briefing Center"doFind "AND "&gMasterKeywordend ifend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>14</id>
<text>BriefsThis section is designed to quickly educate you on the most essential data points for a given topic. Use this information to get informed fast. Categories covered within the “Briefs” section include product descriptions, specifications, features & benefits, competitive analysis, technical issues, and accessories. This information comes directly from product management and represents the official company positioning.</text>
</content>
<content>
<layer>card</layer>
<id>15</id>
<text>LaserWriter Pro 810 - Description</text>
</content>
<content>
<layer>card</layer>
<id>19</id>
<text>LaserWriter Pro 810</text>
</content>
<name>Briefs</name>
<script>on keydown theKeyif theKey is not in " ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" then pass keyDownif the selectedChunk contains "Message Box" then pass keyDownupdateScroll theKey,"Briefs"end keyDownon updateCdPICTdrawColor "INFO CENTER/BRIEFS"-- drawColor "Btn.Done",rect of btn "Done"-- drawColor "Btn.Print",rect of btn "Print"end updateCdPICTfunction viewNamesreturn "Description" & return & "Specifications" & return & "Features & Benefits" & return &¬"Technical Information" & return & "Accessories" & return & "Competitive Analysis"end viewNameson openCardglobal gBriefsList,gBriefsRecs,gMenuSelection6put gBriefsList into cd fld "Briefs"put line (number of this cd) of gMenuSelection6 into theSettingsput item 1 of theSettings into theRecordNumif theRecordNum = "" then put line 1 of gBriefsRecs into theRecordNumput item 2 of theSettings into theViewif theView = "" then put "Description" into theViewupdateCdPICTshowBrief theRecordNum,theViewpass openCardend openCardon closeCardput "" into cd fld "Text"pass closeCardend closeCardon showBrief theRecordNum,theViewglobal gMenuSelection6,gCopyScript,gTheApp,gMasterKeywordlock screen-- put "Title" & return & "viewsWithData" & return &¬-- "FileName" & return & "Description" & return & "Specifications" & return &¬-- "Features & Benefits" & return & "Special Technical" & return & "Accessories" into fieldNames-- if not partnerVersion then put return & "Competitive Analysis" after fieldNamesif theRecordNum = "" thenput item 1 of line (number of this cd) of gMenuSelection6 into theRecordNumend ifget MediorDB2("Setup",infoCenterDataPath() & "Briefs Data db2")if it is not "" then fail itget MediorDB2("ReadData","Briefs",theRecordNum,"Title")if checkError(it) then fail itput it into theTitleget MediorDB2("ReadData","Briefs",theRecordNum,"FileName")if checkError(it) then fail itput it into gCopyScriptget MediorDB2("ReadData","Briefs",theRecordNum,"Master Keywords")if checkError(it) then fail itput it into gMasterKeywordget MediorDB2("ReadData","Briefs",theRecordNum,"viewsWithData")if checkError(it) then fail itput it into viewsWithDataspinCursorupdateCdPICTspinCursorif theView = "" then put short name of the target into theViewput viewNames() into allViewsput lineOffset(theView,allViews) into theItemrepeat with z = 1 to number of lines of viewsWithDataput line z of allViews into theBtnif line z of viewsWithData is true thendrawColor "GREY BAR2",rect of btn theBtnhide btn theBtnif theBtn = theView thenput "Description" into theViewend ifelseshow btn theBtnend ifend repeatget MediorDB2("ReadData","Briefs",theRecordNum,theView)if checkError(it) then fail itput it into theTextspinCursorput theTitle & " - " & theView into cd fld "View"if gCopyScript is not "" thenshow btn "Copy"drawColor "Btn.Copy",rect of btn "Copy"elsehide btn "Copy"drawColor "BTN.PLAY Hider",rect of btn "Copy"end ifif gMasterKeyword is not "" thenshow btn "Related Materials"drawColor "Btn.Related Materials",rect of btn "Related Materials"elsehide btn "Related Materials"drawColor "BTN.PLAY Hider",rect of btn "Related Materials"end ifput theTitle into cd fld "Title"put theText into cd fld "Text"set textStyle of line 1 of cd fld "Text" to boldset textSize of line 1 of cd fld "Text" to 12spinCursorif theView = "Specifications" thenboldText "CPU:,Storage:,Network:,RAM:,Size:,Weight:,Color:,Display:,Sound:,"&¬"Memory:,Expansion:,Modem:,Ports:,Security Feature:,Hard Disk:,Floppy Drive:,Battery Life:,"&¬"Internal Modem:,Other:,Resolution:,Printing Speed:,Processor:,Memory:,Supported Languages:,"&¬"Fonts:,Interfaces:,Paper Tray Size:,Dimensions:,Toner Cartridge Life Expectancy:,"&¬"Networking:,Recommended number of users:,Paper handling:,Color capabilities:,"&¬"Scanning resolution:,Scanning area:,Interface:,File formats:,Gray-scale Capabilities:,"&¬"Data access time:,Other Features:,Expansion Capabilities:,Security:,Displays:,"&¬"Recommended number of users:,System Requirements:,Performance characteristics:,"&¬"Formats supported:,Amplifier:,Battery:,Other Feature:,SCSI burst rate:,"&¬"Average data access rate:"else if theView = "Features & Benefits" thenboldText "Feature:,Benefit:",trueend ifset scroll of cd fld "Text" to 0put item 2 of line (number of this cd) of gMenuSelection6 into oldViewput theView into item 2 of line (number of this cd) of gMenuSelection6if oldView is not "" thenput rect of btn oldView into rif visible of btn oldView then drawColor "Btn."& oldView,r,rend ifput rect of btn theView into rdrawColor "Btn."& theView &" hilite",r,rput theRecordNum into item 1 of line (number of this cd) of gMenuSelection6repeat until not the lockscreenunlock screenend repeatend showBrief</script>
</card>
card_5873.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on MouseUpglobal gTrainRecsput word 2 of the clickLine into theLineif line theLine of me = "" then exit MouseUpSpinCursorselectLineCd theLine,number of mewait 10select ""lock screenshowTrain line theLine of gTrainRecsrepeat until not the lockscreenunlock screenend repeat-- selectLineCd theLine,number of me-- if the mouseClick then send mouseUp to btn "Info"end MouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>251</left>
<top>272</top>
<right>609</right>
<bottom>425</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Data</name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>249</left>
<top>434</top>
<right>308</right>
<bottom>465</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Copy</name>
<script>on mouseUpglobal gTrainCopyScriptif gTrainCopyScript = "" thenbeepexit mouseUpend if-- get word 2 of the selectedLine-- set hilite of me to true-- set hilite of me to falsedo "Copy "& quote & gTrainCopyScript & quote-- selectLineCd it,2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>29</left>
<top>45</top>
<right>454</right>
<bottom>113</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>HelpText</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>4</id>
<text>Performance DevelopmentPerformance development contains materials that have been designed to explain new technologies and to train you how to sell them. Included on this release of ARPL are the Techlaration of Independence Summer Camp materials plus the October 93 new product training materials.Click on any title that is of interest to view a description. Materials can be automatically copied to your hard disk by then clicking on the “Copy” button below the description.</text>
</content>
<name>Training Materials</name>
<script>on keydown theKeyif theKey is not in " ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" then pass keyDownif the selectedChunk contains "Message Box" then pass keyDownupdateScroll theKey,"Training"end keyDownon openCardglobal gMenuSelection6,gTrainList,gTrainRecsif gTrainList = "" thenput "" into gTempput "" into gTrainListput "" into gTrainRecsMediorDB1 "Setup",InfoCenterDataPath() & "Training Titles db1"if the result is not "" then fail the resultend ifput (item 1 of line (number of this cd) of gMenuSelection6) into theSettingif theSetting = "" then put 1 into theSettingput (item 2 of line (number of this cd) of gMenuSelection6) into theRecordNumif theRecordNum = "" then put line 1 of gTrainRecs into theRecordNumupdateField theSettingif theRecordNum is not "" then showTrain theRecordNumupdateCdPICTpass openCardend openCardon updateCdPICTdrawColor "Performance Development"drawColor "Version Grey",rect of bg btn "Version"end updateCdPICTon closeCardglobal gTrainList,gTrainRecsput "" into gTrainListput "" into gTrainRecsput "" into cd fld "Training"put "" into cd fld "Data"lock screenpass closeCardend closeCardon updateField theLineglobal gMenuSelection6,gTrainList,gTrainRecs,gAppCategoriesspinCursorput theLine into item 1 of line (number of this cd) of gMenuSelection6MediorDB1 "Training","Training","All","gTrainList","gTrainRecs"if the result is not "" then fail the resultif last char of gTrainList is return then delete last char of gTrainListput gTrainList into cd fld "Training"set scroll of cd fld "Training" to 0showTrain (line 1 of gTrainRecs)end updateFieldon showTrain theRecordNumglobal gMenuSelection6,gTrainCopyScriptlock screenspinCursor-- put "Title" & return & "Description" & return & "Folder" into fieldNamesget MediorDB2("Setup",InfoCenterDataPath() & "Training Data db2")if it is not "" then fail itget MediorDB2("ReadData","Training",theRecordNum,"Title")if checkError(it) then fail itput it into theTitleget MediorDB2("ReadData","Training",theRecordNum,"Description")if checkError(it) then fail itput it into theTextget MediorDB2("ReadData","Training",theRecordNum,"FolderName")if checkError(it) then fail itput it into gTrainCopyScriptput theRecordNum into item 2 of line (number of this cd) of gMenuSelection6put theTitle & return & return & theText into cd fld "Data"set textStyle of line 1 of cd fld "Data" to boldset scroll of cd fld "Data" to 0unlock screenend showTrain</script>
</card>
card_5140.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">nfo Center</span><span class="style5">Welcome to the Info Center. This is your fastest route to the information you need. The six buttons in the middle of the screen represent information categories. By clicking on any of those buttons, you will get an alphabetical listing of what is available in that category. If you wish to view any item in the list, simply click on it.The real power of Info Center resides in its search capability. Click on the “Search a Topic” button to begin. The system will respond with a search dialog box. You can then select a category from the pop-up menu and appropriate keywords. Or, you can simply type in any topic. Clicking on the “Search” button will commence the search. ARPL will then find information in each of the six categories that match your request.All of the new information available when this CD went to press, including the latest new product information, can be found by selecting the “New Product Information” keyword from within the Info Center's search screen. You will notice a checkbox called “Include Sales Call Profile.” Check this box if you are preparing for a specific sales call. If this box is checked, you will get a second dialog box after you click on the search button. This dialog will request information about your prospective customer. By providing this information, ARPL will search for additional materials that might be applicable to your sales call.</span></text>
<script>on mouseUpglobal gMenuSelection6,gClearSearchcheckForVolumeput "" into line (number of cd "Briefing Center") of gMenuSelection6put true into gClearSearchLinkToCard "Briefing Center"doFind "AND Top Priority"end mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>283</left>
<top>185</top>
<right>579</right>
<bottom>220</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Products</name>
<script>on mouseUpglobal gMenuSelection6,gClearSearchcheckForVolumeput "" into line (number of cd "Briefing Center") of gMenuSelection6put true into gClearSearchLinkToCard "Briefing Center"doFind "AND New Product Information"end mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>16</left>
<top>434</top>
<right>215</right>
<bottom>465</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>None</name>
<script></script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>165</left>
<top>434</top>
<right>215</right>
<bottom>465</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUpLinkToHelpend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>16</left>
<top>434</top>
<right>66</right>
<bottom>465</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quit</name>
<script>on mouseUpLinkToQuitend mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>434</top>
<right>156</right>
<bottom>465</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Guide</name>
<script>on mouseUpToggleGuideend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>9</id>
<text>Main Menu Navigation OverviewWelcome to the Apple Reference and Presentations Library, an interactive information delivery system. You are currently viewing the first CD of a two CD set. The second CD contains the ARPL Applications Library, the Art Library, plus Sales Conf Presentations, Persuasion Art, and the “Why Apple?” Presentation & Desktop Seminar.You are currently at ARPL's Main Menu.Top PriorityHere you will find information on this quarter's key initiatives. Included are materials on PowerPC, PowerBooks, and the Macintosh competitive advantage.New ProductsBy clicking on the New Products button, all information relating to New Product announcements is displayed in the Info Center.Info CenterInfo Center is the heart of ARPL. Use the Info Center to learn about Apple Products and technologies, and to gather materials for sales calls. ARPL’s search features will help you quickly locate the information you need.AUSA Sales Tools IndexThe Sales Tools Index helps you locate Apple collateral materials. You can search by topic or media type to learn about the available materials and how to order them.Presentation MakerARPL contains hundreds of Persuasion presentations. Use the Presentation Maker to easily mix and match slides from any presentation to create your own custom presentation.FeedbackYour comments are very important. Please help us to continually improve the system by providing feedback on a regular basis.</text>
<script>on openCardglobal gBriefTitles,gBriefData,gMenuSelection6,gDemoList,gDemoData,gClearSearchupdateCdPICTspinCursor--@if item 1 of line 2 of gMenuSelection6 = 99 then put 0 into line 2 of gMenuSelection6if gClearSearch = true thenput 0 into line 2 of gMenuSelection6end if-- pass openCardend openCardon closeCardglobal gGuideStateput false into closeCardpass closeCardend closeCardon guideNamereturn "ms Guide"end guideNameon updateCdPICTdrawColor "Main Menu"drawColor "Version White",rect of bg btn "Version",rect of bg btn "Version"end updateCdPICTon helpTextreturn cd fld "HelpText"end helpTexton updateIdlerif the cantModify of this stack thenbeepanswer "Locked!"exit UpdateIdlerend iflock screenlock messagespush cdrepeat with z =1 to number of cdsspinCursorif there is a btn "Idler" of cd z thengo cd zshow btn "Idler"select btn "Idler"type "+" with CommandKey,ShiftKeyhide btn "Idler"end ifend repeatpop cdsend openCard to this cdend updateIdleron registerglobal gUserName,gUserLocation,gMarket,gCurMovie1spinCursorif there is a window gCurMovie1 then send "toggleGuide" to this cdif gMarket = "" then put "All" into gMarketif gMarket = "Business Markets" or gMarket = "Enterprise" thenput "Personal Computer Business Division" into gMarketend ifput "Consumer,Higher Education,K-12,,Personal Computer Business Division,All" into allRadsrepeat with z = 1 to 6do "put gMarket = item z of allRads into h"&zend repeatget windowScript("Register",gUserName,gUserLocation,h1,h2,h3,h4,h5,h6)if line 1 of it is not "Cancel" and line 1 of it is not "" thenput line 2 of it into gUserNameput line 3 of it into gUserLocationput "" into hVrepeat with z = 4 to 9if line z of it = true thenput item z - 3 of allRads into gMarketexit repeatend ifend repeatWritePrefsend ifend register</script>
